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EDITORIAL 


Chers amis, 


Comme vous pouvez le voir, ce numéro ne comporte que 4 articles. Quelle en est 
la raison ? Tout simplement que nous n’avons pas reçu un nombre d’articles 
suffisant et que depuis quelques mois nous n’en avions plus en stock. Que devons 
nous faire ? Certains proposent de sortir un journal tous les deux mois, mais ce 
n’est surement pas la bonne solution, car rien ne nous prouve que nous aurions 
la possibilité de faire des numéros doubles très longtemps si cette situation 
s’agrave. Le journal est le lien principal entre les membres du club, et son arrêt 
serait catastrophique. La balle est dans votre camp... 


Une question maintenant, où se trouve l’origine de la Silicon Valley ? La réponse 
fût donnée officiellement, et en grande pompe, au début de ce mois. En effet, le 
garage de David Packard, où fut créé le premier oscilloscope de la marque, vient 
d’être solonnellement classé "lieu historique et berceau de la Silicon Valley". 
Depuis, le prix des garages aurait subi une hausse brutale outre-Atlantique... 


Mis à part cela, les réponses à notre questionnaire commencent à arriver. Ceux 
qui ne l’ont pas encore renvoyé peuvent aussi y ajouter un article ! 


Nous vous souhaitons de bonnes vacances, et vous donnons rendez-vous en 
Septembre. 


Le bureau 
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AH, ET SI VOUS ECRIVIEZ ? 


Depuis quelques mois, le petit nombre d’articles 
reçus était préocupant. Ce mois ci, il est devenu 
alarmant. En effet, si depuis quelques mois nous 
arrivions à peine à boucler un numéro de JPC à 
temps, ce mois ci, à la date prévue pour le bouclage, 
nous n'avions reçu en tout et pour tout que 3 articles. 
Ceci m’a obligé à faire en catastrophe un article que 
javais prévu de faire paraitre en septembre ou 
octobre. 


Ceci veut dire que nous en sommes arrivés au point 
où le journal ne pourra paraitre que si les membres 
du bureau, étants au courant du nombre d’articles 
déjà arrivés, auront le temps de bacler un article pour 
assurer un nombre de pages minimum. 


Il y a quelques années, lorsque les numéros de JPC 
faisaient une moyenne de 15 ou 20 articles, un 
numéro comme celui-ci aurait provoqué un tollé 
général. Aujourd’hui on met cela sur le compte de 
l'arrêt du HP-71, de l’attente d’une nouvelle machine 
ou bien d’autres choses. Pour moi, le problème n’est 
sûrement pas là. 


Je voudrais faire quelques constatations. 
Premièrement, si le nombre d’articles diminue, ce 
n’est pas faute d’auteurs potentiels, le nombre de 
membres du club étant resté à peu près constant ces 
dernières années. Cela veut réellement dire que ce 
sont les membres qui écrivent moins. L’autre 
constatation, je l'adresse à tous ceux qui ont enterré 
prématurément le HP-71 depuis le début de cette 
année combien d’entre vous on revendu leur 
machine ? Très peu. Regardez les petites annonces de 
ce mois ci, comme celles du mois dernier, aucune ne 
concerne cette machine. Je pense donc que vous 
continuez à vous en servir. 


Vous dites aussi qu’on aurait exploité toutes les 
ressources des machines et que la seule chose qui 
ferait augmenter le nombre d’articles serait la sortie 
d’une nouvelle machine. Etes vous si mécontents de 
votre machine que vous attendez déjà une machine 
dont vous ne savez rien (et qui peut ne pas venir avant 
plusieurs mois) ? Et en ce qui concerne votre (soit 
disant) trop grande connaisance des machines, je 
m’etonne de ne plus trouver d’articles traitant du 
microcode sur la HP-41, même après la sortie d’outils 
de développement d’un prix abordable comme le 
module HEPAX. Pour la HP-28, qui est encore une 
machine jeune, il doit bien y avoir encore quelques 
SYSEVAL à trouver ! Quant au HP-71, il reste beaucoup 
de possibilités connues de façon théorique, mais qui 
n’ont jamais été exploitées par les membres du club, 


JPC 66 Page 2 


je vous en donnerais un exemple dans un prochain 
numéro. 


Mis à part la programmation système, la majorité des 
articles parus dans les précedents numéros étaient des 
programmes mathématiques (factorisation, 
statistiques.) provenant pour la plupart d'étudiants. 
Pourtant, la programation ne se limite pas à ces seuls 
domaines, vous avez sûrement fait des programmes 
d'application  conçernant d’autres domaines 
(résistance des matériaux, gestion) qui peuvent 
interesser plus de monde que vous ne croyez. Ne 
croyez pas que votre programme est trop spécifique à 
un domaine, il y aura toujours quelqu'un qui 
l'utilisera ou l’adaptera à ses propres exigences !\ 


Ne croyez pas non plus que votre programme est trop 
long pour passer dans le journal, nous lui ferons 
toujours la place qu’il mérite, ainsi qu'a l’article 
l'accompagnant, même si il fait 50 pages ! (bien que 
dans ce cas nous pouvons aussi le passer en plusieurs 
fois)... 


Combien d’articles nous faudrait-il ? Tous comptes 
faits, si chaque adhérent nous envoie un article par 
an, nous pourrons faire un journal suffisament 
diversifié, ce qui fera venir de nouveaux membres, 
donc de nouveaux auteurs potentiels. Un autre 
interêt, plus technique, serait d’avoir un bon stock 
d'articles, pour me permettre, en tant qu’éditeur, de 
pouvoir mieux maitriser la mise en pages, en jouant 
sur la longueur des articles de façon à éviter d’avoir 
trop de pages blanches entre les rubriques, ou à la fin 
du journal. 


Un dernier mot à ceux qui n’ont jamais fait d’articles. 
Ne croyez pas que cela soit trop dificile. C’est ce que 
je pensait avant le début de cette année. Depuis mon 
adhésion, en 1984, je n’avais jamais envoyé d’article, 
pensant ne pas savoir comment faire, ou autres 
excuses sans fondement. Depuis, je me suis aperçu du 
contraire, et j'aurais bientôt comblé mon retard... 


Jacques Belin (123) 


COURRIER DU COEUR 


Pierre BOURGOT 
2 sq castiglione 
78150 Le Chesnay 
Tél:(1) 38 54 75 43 


Vend: 


Lecteur HP-81161A 900 FF Imprimante 
HP-82162A : 800 FF Convertisseur 82166A : 1000 FF 
41 71 Translateur : 500 FF 75 Text formatter: 200 FF 
Le tout en excellent état. 


Alain GILLET 

1, rue du marronier 
BAINVILLIERS BROMEILLES 
45390 PUISEAUX 

TEL: 38 33 56 37 (APRES 18H) 


Vend : 

imprimante HP-82162A, HPIL, 14 rouleaux de 
papier : 1200 FF ; Lecteur de code barres, pour 
HP-41 : 400 FF ; Les deux 1400FF. 


Jacques BAUDIER 
4 Imp. Daniel René 
78800 HOUILLES 

Tel : (1) 39 68 33 93 


Vend : 


Lecteur de codes barre pour HP-41 : 400 FF. 


André VIALARON 
11, rue Darquié, 11 
31000 TOULOUSE 
Tel : 61 52 20 03 

ou 65 29 71 21 


Vend : 


Une HP-41C en excellent état, avec modules : 
QUAD-Men, X-Fonctions, TIME : le tout 900 FF 


Robert Vertente 

8, rue des Marnaudes 

93250 VILLEMOMBLE 

Tel : (1) 42 81 84 97 (bureau) 
(1) 48 55 33 57 (soirée) 


Vend : 


HP-42$S (sous garantie) + Manuels : 800 FF + 


port(20 FF). 


Arnaud AUDREN DE KERDREL 
20 rue d’ Aguesseau 

92100 BOULOGNE 

Tel: (1) 46 04 31 47 (après 21 h) 


Vend : 
HP-41C avec modules Quad Memory, X-Functions, 


X-Memory, Financial 1 : 900 FF; HP-12C neuve 450 
FF; HP-19B neuve 1250 FF. 


Pierre DAVID 
33 bd Saint Martin 
75003 PARIS 


Vend : 


Imprimante ThinkJet HP-2225B : 1500 FF. 


Jean REIBEL 

9 Square Victor Fleming 

92350 LE PLESSIS ROBINSON 
Tel: (1) 46 31 46 11 


Vend : 


HP-42S (sous garantie) 800 FF; Module Infrarouge + 
Imprimante thermique 82240A (compatible HP-28) : 
1000 FF. 
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SOS 


Pierre Lison 

104 av de Monte Carlo (101) 
B 1190 BRUXELLES 
BELGIQUE 

Cherche : 


Modules 4 Ko ou autre Ram pour Front Port à prix 
raisonnable. 


Olivier Dufor 

C.E.G. de Cap Estere 
97140 MARIE GALANDE 
GUADELOUPE 


Cherche : 


Manuel et listings du module Navigation pour HP-41. 


Christian MOREL JEAN 
D2 Le grand Pré 

01280 PREVESSIN 

Tel : 50 40 50 13 


Cherche : 


VASM de la HP-41 


Ne vous batrer plus 
avec votre eelev lateur: 


ACHETEZ un HP ! 





JPC 66 Page 4 


HP-28 


C. Vaillant Agenda 6 
T. Guilloux Polynomes 9 
J. Devémy Erratum sur le programme BACCARRA 10 


JPC 66 Page 5 


AGENDA 


Nouveau venu au club, jenvoie ce programme en 
espérant qu’il satisfera un grand nombre de lecteur. Il 
s’agit d’un agenda permettant la mise en mémoire 
d’un nom accompagné du prénom, de l’adresse et du 
téléphone. 


Le nombre de fiches que vous pouvez enregistrer est 
fonction, évidemmemt, de la taille de votre mémoire. 


Cet utilitaire possède les fonctions usuelles d’un 
agenda, a savoir : ajout (d’un nom (et le reste)), 
recherche, correction (d'une partie : soit le nom, soit 
le prénom....), destruction et enfin impression. 


Il faut savoir qu’il est protégé de la plupart des fautes 
que vous pouvez faire mais vous sortez alors du 
programme, de plus le caractère ”.” est interdit car le 
programme s’en sert pour la recherche. 


Une liste vide € } doit être créée lors de la première 
utilisation. Son nom sera simplement LISTE. Vous 
pouvez le changer, mais alors il faudra remplacer 
LISTE par le nouveau nom dans toutes les procédures 
qui y font appel. 


A chaque demande de renseignements le programme 
stoppe. Entrer alors les renseignements voulus et 
relancer l'ordinateur par [CONT]. À tout moment le 
programme peut être interrompu par l’appui sur [ON]. 
Il n’y aura pas de perte de données. 


Entrons maintenant dans les détails Le sous 
programme DEST est la partie destruction. Son appel 
provoque l'affichage de INDICATION. Entrer alors soit 
le nom, soit le prénom, soit une rue (une partie 
quelconque de l'adresse) et relancer le programme 
par (CONTI. Le programme va alors rechercher tout ce 
qui peut convenir à votre indication. S'il trouve 
quelque chose, il vous demandera si c'est ce nom 
(avec le prénom, l'adresse …) qui convient. Répondez 
par *O’ pour oui ou N° pour non. Appuyez enfin sur 
[CONT] pour que le travail s'effectue. S’il ne trouve 
rien, il affichera ’N'EXISTE PAS’ puis il retournera au 
menu principal. 


Il y a ensuite la partie recherche désignée par RECH. Le 
principe est le même que précédemment : en lançant 
le programme par appui sur la touche de menu, vous 
faites apparaître INDICATION. Entrer alors ce que vous 
voulez (nom, prénom.) puis faites [ICONTI. Le 
programme affichera toutes les possibilités, en vous 
demandant si c’est celui-ci ou non. S’il ne trouve rien, 
de même, il affichera ’N'EXISTE PAS". 
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Deux précisions valables pour tous les programmes : 


Si l'affichage d’un nom (et le reste) tient en plus de 
quatre lignes, l'ordinateur attendra l’appui sur une 
touche pour afficher le reste sur la dernière ligne (et 
ainsi de suite si l’affichage nécessite encore plus de 
lignes). La deuxième chose est que vous pouvez ne 
rien donner comme critère de recherche, c’est à dire 
qu’à INDICATION vous faites ICONTI, de suite le 
programme affichera alors tout ce qu’il a en mémoire. 


iMP est la partie imprimante. Il emploie la partie 
recherche, aussi la procédure est la même sauf qu’à la 
fin il imprimera le nom (et le reste) pour lequel vous 
aurez répondu our à la question "CELUI-CI (O/N)?'. 


Le sous-programme FIN devra être appelé quand vous 
voudrez sortir de l'agenda. Il fait un simple 
Nettoyage’ avant de revenir au menu courant. 


Vient ensuite la partie correction dénommée cor. 
Cela permet toujours, à partir d’une indication, de 
changer morceau par morceau les différents 
renseignements contenus dans une fiche. Après une 
correction, si vous voulez en effectuer une deuxième 
sur la même fiche, il faut tout refaire. C’est à dire 
appeler cor, etc. Peut-être une amélioration à 
apporter. 


Si évidemment vous désirez arrêter la manipulation 
en cours, il suffit d'appuyer sur ton]. Rien ne sera 
modifié alors. 


Enfin le programme le plus important AJOUT. Il sert 
tout simplement à ajouter des noms (et ce qui peut 
aller avec prénom, adresse, téléphone. Mais ce n’est 
pas obligatoire. Seul le nom lest pour créer une 
fiche). Ainsi les fiches s’ajouteront au fur et à mesure 
dans la LISTE. Voilà vous savez tout. 


Vous verrez cet agenda rend beaucoup de services et 
il est très rapide dans sa recherche, bien qu’il ne 
range pas ses fiches (ordre alphabétique). 


Liste des differents programmes et variables (dans 
l’ordre) : 


{ HOM AGEN IMPR FIN COR AJOUT DEST RECH SUITE INDIC 
AFFIC DECH SUIT TEST1 TEST2 NOEX LISTE } 


Detaillons les listings (en ordre inverse, afin qu’ils 
soient enregistrés dans le bon ordre) : 


LISTE 
oO 


NOEX 


« 


» 


IF 2 FC? 
THEN CLLCD 
"N'EXISTE PAS." 2 
DISP 2 WAIT 

END 


TEST2 


« 


» 


DUP 

IF SIZE 1 == 
THEN CLLCD 
"IMPOSSIBLE " 2 DISP 
1 WAIT 3 SF 

END DUP 3 3 SUB 

IF NUM 65 < 
THEN CLLCD 
MIMPOSSIBLE" 2 DISP 
1 WAIT DROP 3 SF 

END 


TEST 


« 


» 


IFERR 
WHILE 1 
REPEAT +STR SWAP 


+STR 32 CHR + SWAP + 


END 
THEN 
IFERR 32 CHR 
SWAP + 
THEN 
END 
END 


SUIT 


« 


un 3 DISP 
NCELUI = CI ? (O / N)" 
& DISP HALT -STR 2 2 
SUB NUM ’D0’ STO 
IF 78 DO # 79 DO ç 
XOR 
THEN 4 CF 
ELSE ABORT 
END 
IF DO 79 # 
THEN 4 CF 
ELSE 4 SF 
END 


DECH 
« 
AO 1 AO "." POS 
SUB AO DUP #.1 POS 1 


» 


+ AO SIZE SUB ‘A0’ 
STO 


AFFIC 


« 


» 


DUP SIZE 22 / 
FLOOR ’D0’ STO 1 DO 
START DUP 
NEXT O0 DO 
FOR X 
IFX4 > 
THEN SUITE 
END 22X*1+xX 
1 + 22 * SUB -STR X 
1 + DISP 
NEXT 


INDIC 


« 


CLLCD 

MINDICATION 7? 2 
DISP HALT TEST1 ‘A0’ 
STO LISTE LISTE+ ‘B0O' 
STO 


SUITE 


« 


» 


DO 
UNTIL KEY 
END DROP 


RECH 


« 


INDIC 1 BO 
FOR CO -+STR A0 
+STR 
IF POS O0 # 
THEN 2 SF CLLCD 
LISTE BO CO - 1 + 
GET AFFIC SUIT 
IF 4 FS? 
THEN LISTE BO 


CO - 1 + GET AFFIC 
SUITE BO CO - 1 + 
DO’ STO BO C0’ STO 


END 
END 
NEXT NOEX 
LE: 1: FE? 
THEN AGEN 
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END 


» 


DEST 
« 
INDIC 1 BO 
FOR C0 -STR A0 
+STR 
IF POS 0 # 
THEN 2 SF CLLCD 
LIST BO CO - 1 + 
GET AFFIC SUIT 
END 
IF 4 FS? 
THEN CLEAR LISTE 
LIST+ DROP CO ROLL 
DROP DEPTH -LIST 
!LISTE’ STO 4 CF B0 
!C0’ STO 
END 
NEXT NOEX AGEN 


AJOUT 

« 
CLLCD ‘Nom =!" 2 
DISP HALT TEST 
TEST2 
IF 3 FS? 

THEN ABORT 

END A0’ STO CLLCD 
“Prenom =" 2 DISP 
HALT TEST1 ’B0’ STO 
CLLCD "Adresse =" 2 
DISP HALT TEST ‘C0’ 
STO CLLCD 
“Telephone =!" 2 DISP 
HALT TEST1 ‘DO’ STO 
CLLCD AO 46 CHR + BO 
+ 46 CHR + CO + 46 
CHR + DO + 46 CHR + 
1 LIST ’LISTE’ RCL 
+ !LISTE’ STO AGEN 


COR 
« 
INDIC 1 B0 
FOR CO -STR A0 
+STR 
IF POS 0 # 
THEN 2 SF CLLCD 
LISTE BO CO - 1 + 
GET AFFIC SUIT 
END 
IF 4 FS? 
THEN CLEAR LISTE 
LIST+ DROP CO ROLL 
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FIN 


» 


IMPR 


« 


"A0! STO CLLCD 
MVOULEZ VOUS MODIFIER =" 
2 DISP 2 WAIT CLLCD 
" Le Nom + N" 1 DISP 
“le Prenom + P" 2 
DISP 
" L'Adresse + A" 3 
DISP 
“le Telephone + T' 
4 DISP HALT +STR 2 2 
SUB NUM ‘DO’ STO 
IF 65 DO # 78 

DO # AND 80 DO # 84 

DO # AND AND 

THEN ABORT 
END 84 DO - 7 
MOD DUP 
IF 0 # 

THEN 3 - ‘DO’ 

STO 
ELSE ‘DO’ STO 
END CLEAR 
CLLCD 
"NOUVELLE INDICATION =! 
2 DISP HALT TESTI 
IF 3 DO == 

THEN TEST2 
END 
IF 3 FS? 

THEN ABORT 
END #,1 + DECH 
SWAP DECH SWAP DECH 
SWAP 3 ROLL SWAP A0 
SWAP DO 2 + ROLL 
DROP DO 1 + ROLLD 3 
ROLL 2 ROLL + + + 
1AO! STO LISTE LIST+ 
DROP CO ROLL DROP A0 
DEPTH +LIST ’LISTE’ 
STO 4 CF BO ‘C0’ STO 

END 


NEXT NOEX AGEN 


CLEAR CLLCD 1 CF 2 
CF 3 CF 4 CF € AO B0O 
CO DO } PURGE 23 
MENU CLMF KILL 


1 SF RECH 
IF 2 FS? 4 FS? AND 


THEN LISTE DO GET 
PR1 DROP 


END 1 CF AGEN 


» 


AGEN 

« 
CLEAR CLLCD CLMF 1 
CF 2 CF 3 CF 4 CF 
STD 0 ‘A0’ STO O0 
1B0’ STO 0 ‘C0’ STO 
0 ‘DO’ STO { DEST 
RECH IMPR FIN COR 
AJOUT } MENU 


» 


HOM 
« 
HOME 


» 


Christophe Vaillant (523) 


POLYNOMES 


Possibilités 


Ce programme résoud tous les polynomes du 
troisième degré. Les coefficients peuvent être réels, 
complexes ou une expression algébrique. 


Dans ce cas vous aurez les vraies racines sous forme 
algebrique. Cependant les formules donnant les zéros 
sont assez longues et il faut une HP-28$ avec ses 32 
Ko pour les résolutions algébriques. 


Les temps de calculs sont d'environ 21 secondes pour 
les 3 zéros avec des coefficients complexes. La 
précision est superieure à 10710, 


Restrictions 

Vous ne pouvez pas résoudre x?+c=0, mais dans ce 
cas, l'utilisateur étant doué d’une mémoire relative se 
rappellera que la commande 1s0L fera très bien cela. 
Utilisation 

Très simple. Le polynome à traiter étant de la forme 


P(x)=a0+alx+a2x2+x, il vous suffit d'entrer les 
coefficients par STa0, STal, STa2 affichés au menu. 


Ensuite appuyer sur R1, R2, R3 pour avoir la racine 
voulue au niveau 1. 


Notes : Le listing est à entrer dans l’ordre pour avoir 
un menu ordonné. La routine FORMA ne sert dans 
aucun calcul, juste pour l’affichage. La rapidité et 
l'espace mémoire utilisé m'ont conduit à choisir la 
RPL plutôt que des expressions algébriques plus 
explicites. 


» 


« 


» 


« 


» 


« 


» 


« 


DUP IM ABS 

IF'9E-9:< 
THEN RE 

END 

FORMA 


cHS INV 3 | 2 / R-C 0" sro  (0=e2i7/3) 


al a2 SQ 3 / - 
p 


a2: 3 * êT J 2. * a1 82. *°3./ = a0 + 
q 


p3"4*27/qs0+l{"q- 27/3 IN" 
A 


p*A3%*/- a2 3 / - FORMA 
L 
ta2! 


STO 0 ‘al’ STO 0 ’a0’ STO 


OSQA*OL 
R3 


OA*OSQL 
R2 


APA3*/- a23 / - FORMA 
R1 


1a2! 
STa2 


STO 


‘al! 
STal 


STO 
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« 
fa0’ STO 
» STa0 


Tony Guilloux (235) 





ERRATUM 


Deux erreurs se sont glissées dans l’article "Baccarra" 
paru en Mai : 


Fonction AFDI : 


Ajouter un signe "#" à la fin de la 6° ligne. 
MN! } SWAP POS O0 # 


Fonction DECI : 


Ajouter une colonne de "1" aprés la 7 colonne de la 
matrice : 

CET TRE PT: 01011 

E-O OT 1 1 TAN 0 01:3 

[000111110011] 

[000011110011] 

[000000111001] 


Jérome Devémy (495) 
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HP-41 


J. Reibel Macro-photographie 12 
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MACRO PHOTOGRAPHIE 


Voici un programme qui s’adresse à ceux qui font de 
la macrophotographie en se servant soit d’un soufflet 
soit de tubes allonge. Il n’est pas utilisable avec des 
bonnettes. 


Quelques explications sur les spécifications de 
l'objectif utilisé : 

-Grossissement pupillaire (P) : c’est le rapport entre 
le diamètre apparent du diaphragme vu de l’avant 
(entrée) et de l’arrière (sortie). Par défaut P=1. 
-Cercle de confusion : il dépend de la qualité de 
l'ensemble objectif, boîtier, pellicule. 

En 24/36 e=1/30, 

En 6/6 et6/7 e=1/15, 

En 6/9 e=1/10. 


-Détermination de la distance h,h’ (plan principal 
objet, plan principal image) : 


Prendre pour le calcul de D, distance film/sujet, la 
formule D=f*(2+G+1/G). La différence entre la 
distance D ainsi calculée et la distance réellement 
nécessaire est égale à D(hh’). Par défaut d(hh’)=0. 
Formules utilisées 

-Calcul du rapport de reproduction : 

G= Largeur image/Largeur sujet ou 

G=Longueur image/Longueur sujet ou 
G=t/f=(t-f)/f (€ augmentation du tirage) ou 
G=f/(d-f). 

-Distance film /sujet : 

D=t+f+d+D(hh). 

-Profondeur de champ : 

Pc=(2*n*e*(P +G))/(P*G”2). 

-Ouverture à afficher : 

n=(Pc*P*G”2)/((P +G)*2*e). 

-Facteur d'exposition : 

Fe=(1+(G/P))"2. 


-Ouverture à afficher : 


n=n’/SOR(Fe) (n° valeur sur un posemètre). 


JPC 66 Page 12 


-Vitesse à afficher : 
v=v/Fe. 
Mode d’emploi : 


Lancer le programme. 

Entrer le format : 

-135 (24*36) 

-120 choisir 6.6, 6.7, 6.9. 

Les touches ont deux fonctions. Si on entre une valeur 
avant de presser A..E ou ae, cette valeur est 
stockée. Si aucune valeur n’a été entrée, il y a 
affichage des valeurs entrées précédemment (excepté 
pour le facteur d’exposition qui ne peut être entré). 


-Caractéristiques de l'objectif : 


“position normale : Fo .sssssosonese [A] 
-position inversée : F [CHS]1........... [A] 
-Dimensions sujet : [(S)[ENTERIL(S)....[B] 
-Rapport de reproduction : G........... [C] 
-Augmentation du tirage : t’........... [D] 
-Distance sujet/objectif : d........... [E] 
-Facteur d'exposition :................ [a] 
-Dimensions image : L(I)[ENTERIL(1).... (b] 
-Profondeur de champ : Pc.............. [c] 


-Ouverture lue sur un posemètre : N'...[d] 
-Calcul de La vitesse (posemètre) : V'.[e] 


EXEMPLE 1 : Format 135, focale=50 mm, P=1, 
D(hh”)=0, G=0.5, profondeur de champ nécessaire 8 
mm. 


EXEMPLE 2 : Même objectif qu’en 1. Dimensions 
du sujet : largeur I(S)=40 mm, longueur L(S)=60 
mm. Dimensions de l’image lues sur le verre de 
visée : largeur 1(1)=20 mm, longueur L(T)=30 mm. 


EXEMPLE 3 : Format 135, objectif 35 mm en 
position inversée, P=1.5,  D(hh’)=18 mm. 
Dimensions sujet I(S)=13 mm, L(S)=20 mm. 


EXEMPLE 4 : Même format qu’en 3, même objectif 
mais en position normale. G=1.8. 


EXEMPLE 1 : 
TOUCHES AFFICHAGE 
XEQ "MACROS!" 

FORMAT ? 
135 RUN 

FS GT'd 
50 XEQ À 

P ? 
RUN 





dCHH') ? 
RUN 

NCMINI) ? 
1,8 RUN 

NCMAXI) ? 
22 RUN 

F:S GT! d 
XEQ A 

MES. EN MM 

FORMAT : 24X36 

F= 1,8/50 

N(MAXI)= 22 

P= 1,0 

dCHH')= 0,0 

F:S GT" 14 
.5 XEQ C 

G= 0,50 

FES GT'4d 
XEQ B 

S: 48,0*72,0 

F*S Gr" a 
XEQ D 

T'= 25,0 

ES. GT'.0 
XEQ E 

d= 150,0 

D= 225,0 

F:S : G'TE.4 
RUN 

Fe I PCNV 
XEQ a 

Fe= 2,25 

F:S . G:T’.d 
RUN 

Fe I PCN V 
8,0 XEQ c 

Pc= 8,0 

FS 6GT’d 
RUN 

Fe I PCNV 
XEQ d 

N= 20,0 


On affichera un ouverture de 20. Sur un posemètre on 
lit pour n=20, v=1/8e de s. 


FS GT’'d 
RUN 

Fe I PEN V 
8,0 
XEQ e 

V= 1/3,6 


On affichera une vitesse de 1/4 de s. 


FS GT'd 


EXEMPLE 2 (Même objectif que 1) : 


RUN 
20,0 ENTER* 


30,0 
XEQ b 


40,0 ENTER 
60,0 
XEQ B 


XEQ C 


G= 0,50 


XEQ D 


XEQ E 


RUN 


Fe I PCN V 


1: 20,0*30,0 
FS GT'd 


S: 40,0*60,0 
FS GT'd 


FS GT’ d 


T'= 25,0 
FS GT'd 


d= 150,0 
D= 225,0 
FS GT’'4d 


Fe I PQN V 
8,0 


Pour la vitesse choisie, l'ouverture est 8. 


XEQ d 


N= 5,3 


Il faudra afficher 5.6 sur l’objectif. 


RUN 


XEQ c 


EXEMPLE 3 : 


XEQ "MACROS!! 


135 RUN 


-35 XEQ A 


1,5 RUN 


18 RUN 


2 RUN 


22 RUN 


FS GT'd 
Fe I PeNV 


Pc= 2,1 
ES (TE: 


FORMAT ? 
FS GT'd 
P ? 

d(HH') 2? 
NCMINI) ? 
NCMAXI) 2? 


FS GT'ld 
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XEQ A 


13,0 ENTER” 
20,0 XEQ B 


XEQ C 


XEQ D 


XEQ E 


1,5 XEQ c 


XEQ d 


30,0 
XEQ e 


EXEMPLE 4: 
XEQ "MACROS! 
135 RUN 
35 XEQ À 
1,5 RUN 
18 RUN 
2 RUN 
22 RUN 


XEQ A 
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MES. EN MM 
FORMAT :24X36 
FCINV)= 2,0/35 
NCMAXI)= 22 

p= 1,5 

d(HH')= 18,0 


FES ‘G:T'-d 


S: 13,0*20,0 


FS GT'd 


G= 1,80 
FS GT'4 


T'= 28,0 
FS GT'd 


d= 54,4 
D= 170,4 
FS GT'd 


Pc(E)= 1,0 
F S G:T'-d 


N(E)= 22,0 


FS GT’d 


V= 1/6,2 
FS GT'd 


FORMAT ? 
FS GT’ d 
P ? 

dCHH') ? 
NCMINI) ? 
NCMAXI) ? 
FS GT'd 
MES. EN MM 
FORMAT : 24X36 
F= 2,0/35 
NCMAXI)= 22 


P= 1,5 
dCHH')= 18,0 


FS GT'd 


1,8 XEQ C 

G= 1,80 

FS GT'd 
XEQ B 

S: 13,3*20,0 

FS GT'd 
XEQ D 

T'= 63,0 

FS GT'd 
XEQ E 

d= 54,4 
D= 170,4 

FS GT'd 


Listing du programme 


01*LBL “MACROS! 
CLRG CF 01 CF 28 
CF 29 FIX 1 "FORMAT ?!" 
PROMPT 10 / GTO IND X 


12*LBL 13 
15 24 36 GTO 00 


17*LBL 12 
SF 01 "6.6/6.7/6.9 ?" 
PROMPT FRC 10 * 
GTO IND X 


25*LBL 06 
7,5 60 ENTER” GTO 00 


30*LBL 07 
7,5 60 70 GTO 00 


35*LBL 09 
5 60 90 


39*LBL 00 

STO 01 STO 11 RDN 

STO 00 STO 10 RDN 1/X 
STO 16 SF 27 CF 22 

SF 21 


51*LBL 20 

"MF S GT’ d" PROMPT 
“Fe I Pc N V'" PROMPT 
GTO 20 


57*LBL A 

FC?C 22 GTO 00 CF 00 
X<0? SF 00 ABS STO 12 
1 "P 2" PROMPT STO 13 
0 “d(HH'’)" ASTO 20 

MH 21 PROMPT STO 07 
MNCMINI) 2" PROMPT 
STO 17 "(MAXI)" 





ASTO 19 "N" ARCL 19 
+ 2 PROMPT STO 18 
RCL 10 STO 00 RCL 11 
STO 01 5 FC? 01, 
ST- 00 ST- 01 CF 22 
GTO 20 


96*LBL 00 

ADV "MES. EN MM" AVIEW 
FIX O "FORMAT:" ,1 

RCL 10 FS? 01 * 

ARCL X MX" ,1 RCL 11 
FS? 01 * ARCL X AVIEW 
FIX 1 "F" FS? 00 
MEÇINVIM MHz M ARCL 17 
FIX O "#/" ARCL 12 
AVIEW "IN"! ARCL 19 

“= " ARCL 18 AVIEW 
FIX 1 "P= 1 ARCL 13 
AVIEW CLA ARCL 20 

M-= "M ARCL 07 AVIEW 
ADV GTO 20 


140*LBL b 
FC?C 22 GTO 00 STO 01 
RDN STO 00 


146*LBL 00 
MI: M ARCL 00 "-*n 
ARCL 01 AVIEW GTO 20 


153*LBL B 

FC?C 22 GTO 00 STO 09 
RCL 01 / X<>Y STO 08 
RCL 00 / X<=Y? X<>Y 
1/X STO 14 XEQ 01 


168*LBL 00 
nS: 1 ARCL 08 "x" 
ARCL 09 AVIEW GTO 20 


175*LBL C 

FS?C 22 XEQ 02 FIX 2 
"G= " ARCL 14 FIX 1 
AVIEW GTO 20 


184*LBL D 

FC?C 22 GTO 00 RCL 12 
X<>Y FS? 00 + RCL 12 
/ XEQ 02 


194*LBL 00 

RCL 12 CHS RCL 02 
FS? 00 + "T’= 1 
ARCL X AVIEW GTO 20 


204*LBL E 

FC?C 22 GTO 00 RCL 12 
- 1/X RCL 12 * 

XEQ 02 


213*LBL 00 

"d=  ARCL 03 AVIEW 
RCL 12 RCL 02 + 

RCL 03 + RCL 07 + 
"D= " ARCL X AVIEW 
GTO 20 


228*LBL 02 

STO 14 RCL 00 RCL 14 
/ STO 08 RCL 01 

RCL 14 / STO 09 


238*LBL 01 

RCL 12 RCL 14 * 

STO 02 RCL 14 1/X 1 
+ RCL 12 * STO 03 
RCL 14 RCL 13 / 1 + 
X°2 STO 15 RTN 


258*LBL a 
FIX 2 "Fe= " ARCL 15 
FIX 1 AVIEW GTO 20 


265*LBL c 

FC?C 22 GTO 00 STO 04 
CF 02 XEQ 01 1/X * 
RCL 18 X<Y? SF 02 

FC? 02 X<>Y STO 05 
XEQ 01 * STO 04 


282*LBL 00 

MPCNUES?, 02 MCE" 
M-z ! ARCL 04 AVIEW 
GTO 20 


290*LBL d 

FC?C 22 GTO 00 CF 02 
RCL 15 SORT / RCL 17 
X>Y? SF 02 FC? 02 
X<>Y STO 05 XEQ 01 * 
STO 04 


306*LBL 00 

UN“ FS2 O2 "+-(E)" 
MH= 1! ARCL 05 AVIEW 
GTO 20 


314*LBL 01 

RCL 13 RCL 14 + 
RCL 16 * RCL 13 
RCL 14 X°2 * / RTN 
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326*LBL e 
FC?C 22 GTO 00 RCL 15 
/ STO 06 


332*LBL 00 
"V= 1/1" ARCL 06 AVIEW 
GTO 20 .END. 


LIGNES SYNTHETIQUES : 

052 : 252 32 70 32 83 32 32 71 32 84 39 32 100 
070 : 246 100 40 72 72 39 41 

075 : 249 78 40 77 73 78 73 41 32 63 

078 : 246 40 77 65 88 73 41 

117 : 246 127 40 73 78 86 41 

200 : 244 84 39 61 32 

285 : 244 127 40 69 41 

309 : 244 127 40 69 41 


Ces lignes correspondent à des messages, elles 
peuvent donc être modifiées. 


REGISTRES : 
ROO : L(Image) 
ROM. : L(Image) 


RO2 : t' 

RO3 : D 

RO& : Pc 
ROS : N 

RO6 : V 

RO7 : dChh’) 


ROB : L(Sujet) 
RO9 : L(Sujet) 
R10 : format 
R11 : format 
R12 : focale 


R13 : P 

R14 : G 

R15 : Fe 

R16 : e 

R17 : N mini 
R18 : R maxi 
R19 : "CMAXI)" 
R2O : "d(HH')" 
FLAGS : 


00 : Objectif inversé 
01 : Format 120 
02 : Dépassement 


SIZE : 021 


Jean Reïbel (31) 
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AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas sous quelle forme "l’équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette). Vous pouvez taper vos articles sur 
IBM PC, mais dans ce cas transmettez les nous sur disquette 3/2". Soyez sans 
crainte, nous vous retournerons vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors et alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP) : 

"" centre un titre, par exemple : 
"TITRE 


"\"(CHR$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous en 
doutez, intéressera certains des membres du Club. Surtout si vous vous sentez 
débutant. Les articles pour débutants écrits par des débutants sont ceux qui 
manquent le plus. Fin de paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de caractères Romans. Les 
possesseurs de HP71 utiliseront les redéfinitions de touches ci-dessous, ainsi que 
le fichier CHARLEX listé dans le coin des Lhex. 


Jean-Jacques Dhénin (177) 


DEF KEY ’fW', CHR$(197); (é) 
DEF KEY ’fE’, CHR$(193); (é) 
DEF KEY ’fR', CHR$(201); Cè) 
DEF KEY ’fY', CHR$(203); (ù) 
DEF KEY ’fU/, CHR$(195); çü) 
DEF KEY ‘fl’, CHR$(209); ci) 
DEF KEY /f0’, CHR$(194); (ô) 
DEF KEY ‘f/!, CHR$(92); (0 
DEF KEY ’fA!, CHR$(192); (à) 
DEF KEY ‘fS’, CHR$(200); (à) 
DEF KEY fD’, CHR$(205); (ë) 
DEF KEY ’fJ’, CHR$(207); cü) 
DEF KEY /fK', CHR$(221); (i) 
DEF KEY ’f*', CHR$(124); Ch) 


DEF KEY ’fC’, CHR$(181); (ç) 


PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l'accès en métro, trois possibilités s’offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ab, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions. À bon entendeur, salut ! 


Les dates des prochaines réunions sont : 
Samedi 7 octobre 1989 

Samedi 4 novembre 1989 

Samedi 2 décembre 1989 


NOUS EN AVONS 


La coopérative du Club vous propose : 


- des anciens numéros de JPC, au prix de 40 F + 7,40 F de frais d’affranchissement, 

- d’une année complète de numéros de JPC (février à janvier) pour 300 F (offre spéciale) port compris, 

- de manuels de service du HP-41 au prix de 75 F (port compris), 

- de manuels de service du HP-75 au prix de 75 F (port compris). 

Vous pouvez aussi bénéficier de la Programmathèque HP-71, regroupant tous les Lex et programmes pour 


HP-71 et HP-75 parus à ce jour dans JPC. Elle vous est livrée avec un catalogue décrivant brièvement tous 
les programmes. Joindre 3 disquettes 3/2" à votre reglement. 


Si vous souhaitez des renseignements complémentaires, n’hésitez pas à nous contacter. 





Nom : 
Prénom : 
No de membre : 
Adresse : 
Commande : 

Qté Prix Unitaire Prix Total 
anciens numéros de JPC x 47,40 FF 
année complète de JPC x 300 FF 
Programmathèque HP-71 (joindre 3 disquettes) x 75 FF 
Manuel de service pour HP-41 x 75 FF 
Manuel de service pour HP-75 EX 75 FF 
Actualisation Eprom x 150 FF 

Total FF 


Préciser éventuellement Les 
numéros de JPC commandés : 


PPC PARIS 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 


Profession 
Intérêts 


Matériel HP en votre possession 


Autre matériel informatique 


Comment avez-vous connu PPC Paris ? 


Que recherchez-vous au sein de PPC Paris ? 


La Loi No 78-17 du 6 janvier 1978 relative à l'informatique, aux fichiers et 
aux Libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services ou organismes chargés de mettre 
en oeuvre des traitements informatiques comportant des informations nominatives 
le concernant. 


Je souhaite adhérer au club PPC Paris conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans le Journal de liaison, sans obligations ni 
responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de La part des 
dirigeants de PPC-Paris. 


Date |_|_|/[_1_1/1911I 
Signature, précédée de La mention "Lu et Approuvé!! 


Le montant de La cotisation s'élève à 350.00 F pour un an. 
Etudiants: 300.00 F (justificatif indispensable) 


Paiement à l’ordre de "PPC Paris" par chèque bancaire où virement postal (CCP 
No 18 823 40 C à Paris). Ne pas utiliser d'Eurochèques. 


Veuillez envoyer toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01, France 


HP-71 


J. Belin La méthode Pert 18 
Le coin des Lhex 28 
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LA METHODE PERT 


Tout d’abord, je voudrais preciser que cet article est 
basé sur un programme ecrit par Daniel Ferro, sur un 
Apple IF, et paru dans Science et vie n° 824, Mai 1986. 


Mais qu'est ce que la méthode PERT ? 


Un peu d’histoire : A la fin des années cinquante, les 
militaires Americains se sont trouvés devant un 
problème épineux : comment accélérer la conception 
des missiles Polaris, ceci pour les placer dans leurs 
sous-marins avant que les Soviétiques fassent de 
même ? La Navy créa donc la methode "PERT" 
(Program evaluation and review technique) qui 
deviendra le standard pour l’organisation de tout 
projet d'envergure dans ce pays friand de méthodes 
en tout genres. 


Le concept de base était le suivant : comment 
déterminer parmi les milliers d'étapes de conception 
et de fabrication, celles qui gagneraient à être 
accélérées afin de diminuer la durée totale du 


projet ?. 


Pour vous permettre de mieux comprendre cette 
méthode, nous travaillerons avec un exemple 
classique, la construction d’une maison*. 


Tout projet peut être divisé en tâches élémentaires, 
dont on connait la durée aproximative, et surtout les 
tâches qui doivent être effectuées avant et après. Pour 
notre exemple, très simple, il est facilement 
compréhensible qu’il n’est possible de monter les 
murs qu'après que les fondations ne soient coulées et 
solidifiées, et que ces murs soient terminés pour 
pouvoir poser la charpente sur ceux-ci ! 


Si certaines tâches ne peuvent être effectuées que 
séquentiellement, d’autres peuvent être exécutées 
parallèlement, comme la pose de la plomberie et de 
l'électricité, qui doivent cependant débuter après que 
les murs devant les porter soient terminés, et doivent 
être terminées avant le début des peintures 
intérieures. 


Le problème du chef d’entreprise sera donc de 
déterminer les différentes dates de début de ces 
différentes tâches, ainsi que le nombre optimum de 
maçons, électriciens ou couvreurs nécessaires à la 
réalisation du projet dans le temps minimum. En effet 
si il est compréhensible qu’il faille un nombre plus 
élevé d'ouvriers pour exécuter une tâche plus 
rapidement, il faut aussi penser qu’il est inutile de 
constituer une équipe trop nombreuse d'ouvriers si il 
est prévu qu’il doit y avoir un temps important entre 
la fin de cette tâche, et la fin d’une autre tache 
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s’effectuant en parallèle, si ces deux tâches doivent 
être terminées ensembles pour le début de la tâche 
suivante. 


La méthode Pert permet donc de determiner quelles 
sont les tâches suceptibles de retarder la fin du projet, 
quelles sont les dates au plus tôt et au plus tard de 
départ de chaque tâche, ainsi que leurs marges totales 
et libres. 


Nous reviendrons plus tard sur ces termes, mais avant 
cela, la première phase de létude consiste à 
déterminer les differentes tâches élémentaires ainsi 
que leurs durée et leur localisation par rapport aux 
autres tâches du projet. 


A ce momment, une petite précision s'impose : Il 
existe plusieurs variantes de la méthode PERT, celle 
que je vous présente en est une version simplifiée sur 
un point. En effet, nous travaillerons avec l'hypothèse 
que les tâches auront une durée précise, alors que 
d’autres versions admettent un intervale de tolérance 
sur cette durée. D’où une plus grande incertitude sur 
la date de fin du projet. 


Pour l'exemple que nous avons choisi, nous pouvons 
déterminer 13 tâches élémentaires, les durées peuvent 
être comptées dans l’unité de votre choix (jour, mois, 
année), l'important étant que vous gardiez la même 
unité pour toutes les tâches d’un même projet. Pour 
cet exemple nous avons choisi la semaine. 


Tache n°1 : DEBUT 

Cette tâche, fictive, de durée 0, doit toujours être 
placée au début de chaque graphe, afin de constituer 
le Top Initial. 


Tache n°2 : FONDATIONS, durée 5 
C’est la tâche réele de début du projet, elle précède 
les tâches 3, 4 et 5 que nous verrons ci-dessous. 


Tache n°3 : MURS, durée 8 
Précède les tâches 6, 7, 8, 9 


Tache n°4 : RACCORDEMENT EAU (avec le réseau), 
durée 1 
Précéde la tâche 7 


Tache n°5 : RACCORDEMENT ELECT. durée 1 
Précède la tâche 8 


Tache n°6 : TOITURE, durée 5 
Précède les tâches 10, 12 


Tache n°7 : PLOMBERIE, durée 2 
Précède la tâche 11 


Tache n°8 : ELECTRICITÉ, durée 3 
Précède la tâche 11 


Tache n°9 : HUISSERIES, durée 2 
Précède la tâche 11 


Tache n°10 : REFECTION JARDIN, durée 1 
Précède la tâche 13 


Tache n°11 : PEINTURES INTERIEURES, durée 4 
Précède la tâche 13 


Tache n°12 : PEINTURES EXTERIEURES, durée 1 
Précède la tâche 13 


Tache n°13 : FIN, durée 0 

Précède la tâche 0 

Cette tâche, le Top Final, est fictive, et sert au 
programme à indiquer la fin du projet. 


Notez bien que pour un projet, il ne peut y avoir 
qu’un seul Top Initial et un seul Top Final. 


Une fois les étapes déterminées, nous pouvons 
dessiner le graphe suivant : 





Les cercles représentent les tâches et les fleches, les 
contraintes entre ces tâches. 


Saisie des données 


Après avoir lancé le programme, vous devez entrer le 
nom du projet. Si il s’agit d’un projet déja créé et 
sauvegardé, le programme sera relancé avec ce 
fichier, sinon vous devrez entrer les données 
précédement citées, dans une première phase, le nom 
et la durée de chaque tâche, ensuite les contraintes 
avec les taches suivantes. Après ceci, ainsi qu'après 
toute modification du graphe, une vérification 
sommaire de la cohérence du projet est effectuée. 


Ensuite, nous accèdons au menu suivant : 


CALCUL DU CHEMIN 


Cette étape lance la recherche du chemin critique, et 
des differentes dates de début et les marges. A titre 
indicatif, le temps de calcul est d’environ 1730" pour 
notr exemple. 


AFFICHAGE DU GRAPHE 


Permet de visualiser les données entrées précédement 
(nom et durée des tâches, contraintes). 


AFFICHAGE DU CHEMIN 


Permet de visualiser le chemin critique, ainsi que la 
date de fin prévue Au Plus Tôt. Cette Option, ainsi 
que la suivante, n’est accessible qu’aprés que le calcul 
aie été effectué. 


AFFICHAGE DES CARACTERISTIQUES 


Permet de visualiser, tâche après tache, les différentes 
dates de départ et les marges. 


MODIFICATION DUREES 


Permet de modifier la durée d’une tâche. 


AJOUT DE CONTRAINTE 

RETRAIT DE CONTRAINTE 

Permet d’ajouter, ou de retirer, une contrainte entre 
deux tâches. 


AJOUTER UNE TACHE 

Permet de créer une tâche suplémentaire. Les 
differents tableaux sont agrandis de la taille 
nécessaire. 


RETRAIT D'UNE TACHE 

Permet de retirer une tâche. Ne change pas la 
numérotation des autres tâches, ne change pas les 
dimensions des tableaux. A utiliser avec précaution 
pour conserver la cohérence du projet. 


SAUVEGARDE 

Permet de sauver le projet dans un fichier DATA, afin 
de pouvoir étudier plusieurs versions du projet, par 
exemple. 


ARRET 
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Fin d'exécution du programme. N’effectue pas de 
sauvegarde du projet. 


Exploitation des Resultats 
Nous pouvons donc lancer le calcul par caALcuL.. 
Après celui-ci, nous exécutons AFFICHAGE DU CHEMIN di 


nous visualisons les données suivantes : 


Voici Le chemin critique : 


de DEBUT à FONDATIONS : durée 0 
de FONDATIONS à MURS : durée 5 
de MURS à ELECTRICITE : durée 8 
de ELECTRICITE à PEINTURES INT. : durée 3 
de PEINTURE INT. à FIN : durée 4 


Le projet s'achevera AU PLUS TOT à La date 20. 


Nous pouvons représenter ce chemin critique par un 
trait plus marqué sur le graphe : 


La Date Au Plus Tot est la date de la fin d'exécution 
du projet, si aucun problème exterieur ne vient le 
perturber. 


Nous connaissons maintenant les tâches critiques qu’il 
serait utiles d’accelerer, pour que le projet puisse 
s’arreter avant la date 20. Le responsable du projet 
pourra donc mener une étude aprofondie sur celles-ci 
pour, par exemple, y adjoindre plus de personnel. 


Nous pouvons aussi définir le planning des differentes 
tâches an exécutant AFFICHAGE DES CARACTERISTIQUES. 
Les tâches sont affichées l’une après l’autre. 
Examinons de plus prés la tâche RACCORD. 
exemple : 


EAU par 


Tache RACCORDEMENT EAU 

Date AU PLUS TOT : 5 

C’est la date minimum de début de cette tâche, à 
condition que les tâches précédentes soient arrivées à 
terme dans les délais désirés. 


JPC 66 Page 20 





Date AU PLUS TARD : 13 


C’est la date maximum de début de la tâche. Au dela, 
on retardera la fin de tout le projet. 


MARGE TOTALE : 8 

Elle représente le glissement maximal que l’on peut 
faire subir à une tâche, sans déplacer la fin du projet. 
Si cette valeur est nulle, cela veut dire que la tâche est 
sur le chemin critique, et ne peut donc subir aucun 
délai. 


MARGE LIBRE : 7 

Elle représente le glissement maximal que l’on peut 
faire subir à cette tâche, sans retarder le début 
d'exécution de celles qui la suivent. 


Nous pouvons résumer les caractéristiques sur le 
tableau suivant : 


Tache |durée|D. +tot|D. +Tard[M.Totale|M.Librel 
1 DEBUT 0 0 0 0 0 
2 FONDATIONS 9 0 0 0 0 
3 MURS 8 5 5 0 0 
4  RACC EAU 1 5 13 8 7 
5 RACC ELECT 1 5 12 7 7 
6 TOITURE 5 13 14 1 0 
7 PLOMBERIE 2 13 14 1 1 
8 ELECTRICITE 3 13 13 0 0 
9 HUISSERIES 2 13 14 1 1 
10 JARDIN 1 18 19 1 1 
11 PEINT. INT 4 16 16 0 0 
12 PEINT. EXT 1 18 19 1 1 
13 FIN 0 20 20 0 0 


Nous pouvons, après examen de ces différents 
résultats, faire certaines constatations : 


- Pour les tâches situées sur le chemin critique, si lon 
décide par exemple de diminuer la durée de la tâche 
ELECTRICITE, il est inutile de le faire de plus d’une 
journée, car le chemin critique serait déporté alors 
sur les autres parties du graphe. 


- Pour les tâches situées à l'extérieur du chemin, il 
faut faire particulièrement attention à la tâche toiture, 
qui possède un marge libre de 0, et qui devrait donc 
commencer impérativement à la date au plus tot, ceci 
pour éviter de trop retarder les tâches suivantes. 


Une fois le projet lancé, vous pouvez le remettre à 
jour en cas de retard important d’une tâche. il suffit 
seulement de réactualiser la durée de celle-ci et de 
relancer le programme, et vérifier qu’il n’y ait pas eu 
de changement de chemin critique. 


Un dernier mot, qui concerne l’encombrement 
mémoire des variables : les differents tableaux sont 
dimensionnés en INTEGER, ce qui permet par exemple, 
à un projet comprenant 50 tâches d'occuper environ 
10 Ko. Mais un des (rares !) inconvénients du HP-71 
est de stocker les tableaux sous forme INTEGER, quel 
que soit le dimensionnement des variables avant 
l’ordre PRINT #. Nos chers petits tableaux de 10 Ko, 
générerons donc un fichier de plus de 24 Ko ! 


C’est pourquoi, et en pensant aussi au temps 
d’execution (proportionnel au nombre de tâches et à 
la complexité du graphe) que je vous conseille de 
travailler sur des sous-projets d’une dizaines de 
tâches, pouvant être identifiés comme de simples 
tâches dans un projet plus important. 


Note : Les différentes tâches, ainsi que les durées citées dans cet 
exemple ont été choisies de facon totalement arbitraires, le but de 
cet article n'étant pas de vous apprendre à construire une maison ! 


Jacques Belin (123) 
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Programme "PERT" (Nécessite JPC Rom ou STRUC2, EXITLEX, FILELEX, KEYWAIT, MENULEX) 


10 OPTION BASE 0 

20 INPUT "NOM du projet:":P$ 
30 R=1 

40 IF FILE?(P$) THEN 

50 GOSUB ’RECUP’ 

60 ELSE 

70 INPUT "Nbre de TACHES=";N 
80  DESTROY N$,G,C 

90 DIM NSCN) [16] 

100 INTEGER G(N,N),CCN,5) 
110 FOR 1=1 TO N 


120 C(0,0)=0 

130 DELAY 0 à DISP "NOM de La tache n';1; @ INPUT MM:N$S(I) à C(1,0)=1 
140 DISP "DUREE de ";N$(1);"=tt; à INPUT "M:C(1,1) 

150 NEXT 1! 

160 FOR 1=1 TO N 

170 DISP "COMBIEN de taches suivent ":N$(I1); @ INPUT N1 
180 IF N1#0 THEN 

190 DELAY 1 

200 DISP "Entrez leurs NUMEROS" 

210 G(1,0)=1 

220 FOR J=1 TO N1 

230 INPUT K 

240 G(I,K)=1 à G(0,K)=1 

250 NEXT J 

260 END IF 

270 NEXT 1! 

280 GOSUB '’VERIF' 

290 END IF 

300 LOOP 


310 DELAY 0 @ DISP "9": 
320 RESTORE @ R=MENU(11,R) 


330 DATA CALCUL DU CHEMIN 

340 DATA AFFICHAGE DU GRAPHE,AFFICHAGE DU CHEMIN,AFFICHAGE DES CARACT. 
350 DATA MODIFICATION DUREES,AJOUT DE CONTRAINTE ,RETRAIT DE CONTRAINTE 
360 DATA AJOUT D'UNE TACHE,RETRAIT D'UNE TACHE 

370 DATA SAUVEGARDE , ARRET 


380 ON R GOSUB !CALC’ ,'AFF!,'AFFC’,'AFFCA',/MODD', 'AJCONT! , EVCONT! ,’AJT' ,'EVT’,/SAUV! ,’FIN' 
390 END LOOP 


400 ’CALC': 

410 DELAY O à DISP "RECHERCHE du chemin critique!" 

420 FOR 1=1 TO N 

430 IF C(1,0)=1 AND G(0,1)=0 THEN C(1,2)=0 ELSE C(I1,2)=-100 


440 NEXT I 

450 REPEAT 

460 B=0 

470 FOR J=1 TO N 

480 IF C(J,0)#0 THEN 

490 FOR 1=1 TO N 

500 IF C(1,0)#0 THEN 
510 IF G(I1,J)#0 THEN 
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520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


M=C(1,1) 
IF C(J,2)<C(1,2)+M THEN 
B=1 à C(J,2)=C(1,2)+M 
END IF 
END IF 
END IF 
NEXT I 
END 1F 
NEXT J 
UNTIL B#1 
s=0 
FOR 1=1 TO N 
IF CCI,0)#0 THEN 
IF G(1,0)=0 AND G(0,1)=1 THEN S=S+1 à 11=1 
END 1F 
NEXT 1 
IF S#1 THEN 
BEEP à DELAY 8 


DISP "Votre graphe comporte!!':S-1;!TACHES FINALES en trop,avez vous mis Le TOP FINAL ?" 


ELSE 
C(11,3)=C(11,2) 
FOR 1=1 TO N 
IF I#I11 THEN C(I,3)=C(11,2) 
NEXT I 
REPEAT 
B=0 
FOR J=N TO 1 STEP -1 
IF C(J,0)#0 THEN 
FOR I=N TO 1 STEP -1 
IF C(1,0)#0 AND G(I1,J)#0 THEN 
M=C(1,1) 
IF C(1,3)>C(J,3)-M THEN 
B=1 à C(1,3)=C(J,3)-M 
END IF 
END IF 
NEXT I! 
END IF 
NEXT J 
UNTIL B#1 
DISP "RECHERCHE des marges! 
FOR 1=1 TON 
C(1,4)=C(1,3)-C(1,2) 
IF C(1,0)#0 THEN 
IF G(1,0)#0 THEN 
M1=1.E+30 
FOR J=1 TO N 
IF C(J,0)#0 AND G(I,J)#0 THEN 
D=C(J,2)-C(1,2)-CC1,1) 
IF M1>D THEN M1=D 
END IF 
NEXT J 
C(1,5)=M1 
END IF 
END IF 
NEXT I! 
c(0,0)=1 
BEEP 
DISP "FIN DU CALCUL" à K$=KEYWAITS$ 
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1100 
1110 


1120 


1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


1310 


1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 


1470 


1480 
1490 
1500 
1510 
1520 


1530 


1540 
1550 
1560 
1570 
1580 
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END IF 
RETURN 


"AFFC': 
Affichage du chemin critique 


IF C(0,0)=0 THEN 
DISP "CHEMIN NON CALCULE" @ K$=KEYWAIT$ 
ELSE 
DISP "Voici Le CHEMIN CRITIQUE" 
FOR 1=1 TO N 
IF G(0,1)=0 AND C(I1,0)=1 THEN EXIT 1 
NEXT I 
REPEAT 
FOR J=1 TO N 
IF G(1,J)#0 AND C(J,4)=0 AND C(J,0)=1 AND C(J,2)=C(1,2)+C(1,1) THEN EXIT J 
NEXT J 
DELAY 8 
DISP "De ":N$(1);" a M:N$(J);": duree!";C(I,1) 
IF G(J,0)=1 THEN 1=J 
UNTIL G(J,0)#1 
DISP "Le PROJET s'’achevera AU PLUS TOT a La date";C(J,2) 
END IF 
RETURN 
"AFFCA!: 


Affichage des Caracteristiques 


IF C(0,0)=0 THEN 
DISP "CALCUL NON EFFECTUE" à K$=KEYWAIT$ 
ELSE 
FOR 1=1 TO N 
IF C(1,0)#0 THEN 
DELAY 8 
DISP MTACHE '':N$(I) 
DISP "Date au PLUS TOT:";:C(1,2) 
DISP "Date au PLUS TARD:";:C(I,3) 
DISP "MARGE TOTALE:";C(1,4) 
DISP !MARGE LIBRE:";:C(1,5) 
END IF 
NEXT I 
END IF 
RETURN 
AJCONT : 


Ajout de contrainte 

INPUT l'A partir de quelle TACHE:";:1 

INPUT ‘Vers quelle TACHE:";J 

G(1,J)=1 à C(0,0)=0 à G(1,0)=1 à G(0,J)=1 
GOSUB '’VERIF' 

RETURN 


fEVCONT : 

Retrait de contrainte 

INPUT "A partir de quelle TACHE:":I 
INPUT lVers quelle TACHE:":J 
G(1,J)=0 à C(0,0)-0 

GOSUB ’VERIF’ 

RETURN 





1590 ’EVT': 
- Retrait de tache 
1600 INPUT "in de La TACHE:";I 
1610 C(1,0)=0 à G(1,0)=0 à G(0,1)=0 à C(0,0)=0 
1620 FOR J=1 TO N 
1630 G(1,J)=0 
1640 G(J,1)=0 
1650 NEXT J 
1660 GOSUB ’VERIF’ 
1670 RETURN 


1680 ’AJT': 
- Ajout de Tache 
1690 N=N+1 à DIM N$SCN)[16] @ INTEGER C(N,5) 
1700 INTEGER G((N+1)"2) @ FOR I=N"2 TO 1 STEP -1 @ G(I+1 DIV N)=G(1) à NEXT 1 
1710 INTEGER GCN,N) @ FOR 1=0 TO N à G(I,N)=0 @ NEXT I 
1720 INPUT "NOM de La TACHE:":N$SCN) @ C(N,0)=1 @ INPUT "QUELLE EST SA DUREE ? M:CCN,1) 
1730 DELAY 8 à DISP "Son NUMERO est desormais Le!';N 
1740 INPUT "Combien de TACHES La suivent-elles:";N1 
1750 IF N1=0 THEN 
1760 GCN,0)=0 
1770 ELSE 
1780 DELAY 1 à DISP “Entrez leurs NUMEROS! 
1790 G(N,0)=1 
1800 FOR 1=1 TO N1 


1810 INPUT K @ G(N,K)=1 à G(0,K)=1 
1820 NEXT I! 
1830 END IF 


1840 INPUT "COMBIEN de TACHES La precedent-elles:!";N2 
1850 IF N2=0 THEN 

1860 G(0,N)=0 

1870 ELSE 

1880 DELAY 1 

1890 DISP "Entrez Leurs NUMEROS" à G(0,N)=1 

1900 FOR 1=1 TO N2 


1910 INPUT K à G(K,N)=1 @ G(K,0)=1 
1920 NEXT I! 
1930 END IF 


1940 C(0,0)=0 
1950 GOSUB ’VERIF' 
1960 RETURN 


1970 'MODD': 

1980 INPUT "n de La TACHE:";1 

1990 INPUT "NOUVELLE VALEUR:",STR$(C(1,1));CC1,1) 
2000 C(0,0)=0 

2020 RETURN 


2030 ’AFF': 

2040 DISP "AFFICHAGE du graphe" 
2050 FOR I=1 TO N 

2060 IF C(1,0)#0 THEN 


2070 DELAY 8 à DISP "La tache n'";1:"(":N$(1);") de duree";C(1,1);"precede Les taches:!! 
2080 FOR J=1 TO N 

2090 IF G(1,J)=1 THEN DISP J;:N$(J) 

2100 NEXT J 

2110 END IF 

2120 NEXT 1! 
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2130 RETURN 


2140 ’FIN': 


2150 DISP "FIN" 


2160 END 


2170 ’VERIF 


LE 
. 


- Verification de La coherence du graphe 
2180 S1=1 à S2=1 
2190 DELAY 0 
2200 DISP "Verification! 
2210 DELAY 8 
2220 FOR 1=1 TO N 
2230 IF C(1,0)#0 THEN 
2240 FOR J=1 TO N 
2250 IF G(1,J)=1 AND C(J,0)=1 THEN EXIT J 
2260 NEXT J 
2270 IF J>N THEN 
2280 S1=$1+1 
2290 IF G(1,0)=1 THEN 
2300 G(1,0)=0 
2310 DISP "ATTENTION: L’operation n'';1;"devient un TOP FINAL! 
2320 END IF 
2330 END IF 
2340 FOR J=1 TO N 
2350 IF G(J,1)=1 AND C(J,0)=1 THEN EXIT J 
2360 NEXT J 
2370 IF J>N THEN 
2380 S2=S2+1 
2390 IF G(0,1)=1 THEN 
2400 G(0,1)=0 
2410 DISP "ATTENTION: L'’operation n";l;"devient un TOP INITIAL" 
2420 END IF 
2430 END IF 
2440 ELSE 
2450 FOR J=1 TO N 
2460 G(1,J)=0 à G(J,1)=0 
2470 NEXT J 
2480 END IF 
2490 NEXT I 
2500 SELECT S1 
2510 CASE 1 
2520 BEEP @ DISP "ATTENTION: Le graphe ne comporte pas de TOP FINAL!" 
2530 CASE 3 
2540 BEEP à DISP "ATTENTION: Le graphe possede!!':S1-1;:"TOPS FINALS 1" 


2550 END SE 
2560 SELECT 
2570 CAS 
2580 

2590 CAS 
2600 

2610 END SE 


2620 RETURN 


2630 !SAUV' 

- Sauveg 
2640 INPUT 
2650 IF NOT 
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LECT 

s2 

E: 1 

BEEP @ DISP "ATTENTION: Le graphe ne comporte pas de TOP INITIAL" 
E 3 

BEEP à DISP M"ATTENTION:Le graphe possede!!':S2-1:!TOPS INITIAUX" 
LECT 


arde du projet 
"NOM du projet:",P$;P$ 
FILE?(P$) THEN 


2660 
2670 
2680 
2690 
2700 
2710 


2720 


2730 
2740 
2750 
2760 
2770 
2780 


CREATE DATA P$ 

END IF 

ASSIGN #1 TO PS 

PRINT #1:N,N$C),GC,),CC,) 
ASSIGN #1 TO * 

RETURN 


TRECUP': 

Recuperation du projet 

ASSIGN #1 TO P$ 

READ #1;N 

DIM N$S(N)[16]1 à INTEGER G(N,N),C(N,5) 
READ #1:N$(C),G(,),CC,) 

ASSIGN #1 TO * 

RETURN 


Me. ES 


en + a 


EE = 
AIN 
l 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu'est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 
Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 
q 


Vous trouverez donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 
écrivez !"), les nouvelles fonctions, ainsi que les Lex utilisés dans les programmes Basic de ce 


mois-Ci. 

CHARLEX 

STRUC2 END XWORD 225066 WHILE XWORD 225067 
REPEAT XWORD 225068 UNTIL XWORD 225069 
LEAVE XWORD 225070 LOOP XWORD 225096 
SELECT XWORD 225097 CASE XWORD 225098 
IF XWORD 225099 ELSE XWORD 225100 


FILELEX FILE? XFN 225007 


EXITLEX  EXIT XWORD 225061 
MENULEX MENU XFN 225033 
KEYWAIT  KEYWAIT$S XFN 082001 


10 CALL MLEX @ SUB MLEX @ SFLAG -1 à PURGE AH à INPUT "Nb. d'octets: M;N @ LC OFF 

20 CREATE DATA AH,1,N-4 @ A=HTD(ADDRS("AH")) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$;A$ à C$=A$ à S-0 à GOSUB 90 

40 Q=2 @ X=1 à GOSUB 80 à AS-AS&CS à A=A+37 à N=N*2+37 Q Q=3 à SFLAG 5 @ FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$[5*FLAG(5)+1] à POKE DTH$(A),C$ à A=A+16-5*FLAG(5,0) @ NEXT X à Q=4 
60 DISP DTH$(X)[3]; @ INPUT ": #,P$[1,MOD(N,16)1;C$ à GOSUB 90 

70 POKE DTH$(A),C$ à POKE DTH$(B),A$ à CFLAG -1 à END 

80 DISP DTH$(X)[3]; à INPUT ": ",P$;C$ 

90 DISP DTH$(X)[3]; @ INPUT # sm ","---n:p$ 

100 M=S à FOR Z=1 TO LEN(C$) à M=NUM(CS[Z])+M+1 à NEXT Z 

110 IF D$=DTHS(MOD(M,4096))13] THEN GOSUB 130 @ S=M à RETURN 

120 DISP "Erreur de somme" à BEEP à P$=C$ à POP 4 ON Q GOTO 30,40,50,60 

130 P$=N-------------... " @ RETURN 
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CHARLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
00): 
00E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
OA: 
018: 
01C: 
01D: 
OÎE: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
02A: 
02B: 
02C: 
02D: 
02E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 


0123456789ABCDEF 


34841425C4548502 
802E000000000000 
5E4001EFF0000000 
FE0000000800001F 
F31BF961400032BF 
38F14A11DB10AD23 
07D532BFB8FD7911 
11AD754D7A101743 
1101401CB15D0000 
71450375FF864834 
5655581008355654 
5810070507701724 
7700775070077517 
2077040708364545 
4A30000449724000 
0808094A2C180814 
A464242008355455 
581000054C714000 
0C3142404C700832 
41414A70002078A0 
2F30000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
000000000000080€ 
1A28080008080A2C 
180008040E 340800 
08001E3018000000 
0000000000000000 
0000000000000000 
0000000000000000 
0201000000010200 
0000000201020000 
0001000100000002 
0102010000000000 
0000000000000000 
045E755142400101 
0101010000000000 
0000000000000000 
0000070507000000 
00000000083444C4 
44400D7901112D70 
050D750509700000 
0D70000000384540 
4020014E322E3140 


624 octets 


sm 


35E 
68D 
9FD 
D57 
OEA 
484 
837 
BBA 
F25 
2A2 
5F9 
93F 
c92 
FEO 
333 
69c 
9F6 
D3C 
098 
3F0 
718 
A2B 
D3B 
04B 
35B 
66B 
978 
c8B 
F9B 
2AB 
5BB 
8cB 
BDB 
F06 
270 
5B9 
8F3 
co3 
F13 
223 
539 
84E 
B62 
E76 
186 
4D2 
7E5 
AF5 
E18 
156 
4B6 
800 
B43 
E97 


036: 
037: 
038: 
039: 
03A: 
038: 
03C: 
03D: 
03E: 
03F: 
040: 
041: 
042: 
043: 
044: 
045: 
046: 
047: 
048: 
049: 
O4A: 
048: 
04C: 
04D: 
O4E: 
04F: 
050: 


EXIT 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
00D: 
00€: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 


084E794142400000 
00000000002E4559 
3200000000000000 
0000000000000026 
5556587008365556 
5810083645464830 
0832414248700024 
5655587008345655 
5810083446454830 
0C3042414C700024 
5556587008355654 
5810083546444830 
0C3142404C700025 
5455587008355455 
5810083544454830 
0C3140414C700875 
1414187000044972 
40000€3159454E30 
OC7A0F7949400024 
5554587000084A71 
40000C523A262D10 
0424587458400875 
1415187000094A70 
4000083544454830 
0c3140414C300C74 
5655545000054C71 
40000 


1E7 
525 
83A 
B52 
EB1 
202 
543 
8A0 
BEF 
F44 
2A1 
5F0 
946 
CAO 
FEE 
350 
6Aî 
A01 
D79 
0D5 
436 
78D 
ADD 
E21 
189 
4EO 
5D9 


155 octets 


0123456789ABCDEF 


5485944502020202 
802E000000000000 
A31001ED3D300000 
F710000000000000 
0C2000c754859445 
D31FF8DA82508D55 
4302FFFF4FFFF858 
15A33314A58FC708 
123490848D121A98 
231FE95F21471081 
741431358BAC117F 
17F174147911D017 
313750E0D2059510 
81731331F995F214 
11741411F765F214 
70723878402180FF 
1831830014AD8132 
c013020314C8F99A 
804D031A28D39390 
80bF110161156191 
62C183D014A136CA 
1308DAE470F 


sm 


344 
673 
9DC 
DOA 
075 
42B 
80D 
BA2 
F13 
290 
619 
986 
CE8 
05D 
3Cé 
74F 
AC3 
E48 
1c3 
526 
8B5 
B37 


FILELEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 


KEYWAIT 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 


MENULEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
O0A: 
008: 
00C: 
00D: 
O0E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 


0123456789ABCDEF 


6494C454C4548502 
802E000000000000 
580001E707000000 
F710000000000000 
091000F96494C454 
F3701FF411136068 
F5989057097C908D 
A9390137068F77F9 
0AF0480B44BF4071 
351CF1517071348D 
C32F0 


0123456789ABCDEF 


B454957514944502 
802E000000000000 
3700025101000000 
F710000000000000 
0E1000FFB4549575 
14944542101FF001 
361081371098F2C6 
0045111913511813 
48D8ACA18F127006 
BDF 


0123456789ABCDEF 


D454E455C4548502 
802E000000000000 
D62001E121200000 
F710000000000000 
OF1100F7D454E455 
121FF8FBC6315C0D 
2A6E8BA008D029E0 
18765F2146D71A29 
6F1468AEB01A265F 
14613414A31C2962 
A218390C50163316 
C8FB6A804117F803 
1028D39390161136 
13410A31C2AE531D 
014A960A01619662 
F118A6E10896E991 
011FB98F21B045F2 
7E108FFD15111111 
A1358F327908D572 
511577154717F16F 
271571154120018F 
E92208DEE0108812 
71FE17F103D0E4A4 
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64 octets 


sm 


376 
6A5 
9E6 
D14 
084 
3FF 
7A2 
B34 
ECS 
240 
363 


55 octets 


sm 


366 
695 
988 
CE6 
071 
3D1 
741 
A7D 
E19 
EE8 


,308 octets 


sm 


383 
6B2 
9FA 
D28 
081 
46A 
80F 
B9F 
F4B 
2AE 
612 
982 
DOB 
091 
3F6 
792 
B29 
EAA 
231 
SA7 
8FA 
c86 
02D 











017: EA4E4CO7ADE17F12 3F5 023: 000068401818FB39 DDB 05D: 61340163DFF47BFF 8BF 


018: 311BF2F2AE61328F 79C 024: 40310F9628131049 134 O5E: 18776232873336D8 C2D 
019: B1DE01338FB1DE01 B4A 025: 62F03112962606F1 490 O5F: 1EFCFFOFAFF70D28 029 
O1A: 0410810B740002FF EB3 026: 0626F1371F088F21 81C 060: FE3F804033098169 3B0 
018: 071358FE0C101BB9 248 027: 57413594E40018D5 B8D 061: 4752DB13416314A8 728 
O1C: 8F21F045F2746F8F 5F5 028: 30308D0745014B7B EFF 062: F3E3203471006010 A81 
01D: 88B70779E787F8FE 9B9 029: D4474D61708F6242 284 063: 449000066210C0C8 DDF 
01E: 21208F3E320B2990 D2F 02A: 0510220300339464 5BE 064: OC020A87309A0B80 158 
01F: 33A30237102AD103 091 028: 23653037C4F4F405 93B 065: DO7A6276C26021D2 4E0 
020: AC3062640005Dc11 408 O2C: 2765203B3554C454 CA7 066: CFFC9AFF14A7EFO4 8D4 
021: BA6E9GEBO11BAE2B 7DA 02D: 34452B6110397584 007 067: D0300902725)1313 C30 
022: 6610810B65AF11BD B6C 02E: 94C45429749014B8 382 068: 479E17F915E07032 FB7 
023: AF4F4B669E67E11B F33 02F: D303507D80390245 6EB 069: 7CB16FDO08D84A803 368 
024: DAF4F4AE658D7EFE 330 030: 8454E4296FDF7D54 ASE 06A: 10677C175A168C05 6E5 
025: 8FE9220D011BAEA8 6E7 031: 5213754C43554276 E00 06B: DBFFD3AFF7212776 ABB 
026: FB13B104AF61148F A8B 032: 8cF153331A896631 183 06C: 15E078F174816BCF E61 
027: AODE01318FA0DE08 E3A 033: 8F0E160754017252 4EE 06D: 207A4264A051CFF0 1F1 
028: D912F08D84A80 12€ 034: 27240313F966C137 85D O6E: 1AFF78616FAF89BF 5D1 
035: 0245F40227722017 BBO 06F: FOOAFF1361B698F2 980 

STRUC2 1541 octets 036: 114B7F108FCE2503 F46 070: 144314473611B698 CEO 
037: 1C221770017166AF 2B9 071: F21461347C014E07 056 

0123456789ABCDEF sm 038: 8D324508D229506F 63D 072: D9179216C406C6F7 3F0 

039: EFF83EFF18770351 9FA 073: CBFFAEAFF7BEO4DE 80F 

000: 3545255534230202 342 03A: 678F871F030998A1 D8A 074: 257AD164305ABFF6 BBA 
001: 802E000000000000 671 038: 331E0962828F83DB 120 075: 1BFF2376C1602020 F39 
002: FOC001E246448B00 9EE 03C: 07c151B178F2137C 4A9 076: 33301E8DA93908D5 2CB 
003: FB30087000000000 D38 03D: 2144164140AC25C0 812 077: 045078411877E811 62E 
004: 072600D230F6600D 0A6 03E: 7DF4AC2B461B098F BD3 078: 36134D787DD13210 948 
005: 61019600D5204960 408 03F: 2154477C47015267 F34 079: 88F1C8111378B70C D3B 
006: 0D90069500D554E4 784 040: D1578c4165312414 29F O7A: C28B39B86F7786D2 0EE 
007: 44249C4541465546 AEA 041: A962F016114A7D43 627 078: 71F0B7F22030214B 468 
008: 4B25540554144544 E44 042: 560609031A8966A3 9AB O7C: OEO6A0C4951FD55F 817 
009: 955E44594C454975 1CB 043: 1F088F2161156415 D18 070: 214713517E143F43 B80 
O0A: 8494C454341FF303 54E 044: 541607AA41361B08 08A 07E: 4412E08A68313610 EES5 
008: 0014040202020202 871 045: 8F2156413480DF77 412 07F: A1341FC65F2143E6 27E 
00C: CC230BF354727573 BFF 046: 605444B5778414A3 783 080: E68BAC18F95EF011 641 
00D: 64757275602D4963 F6C 047: 13F962E0227B4058 B01 081: A1348FB7EF011213 9D4 
O0E: 7D6164713686CFF0 306 048: 24F3267F30551161 E6B 082: 08D7E4708F871F08 D73 
00F: 38DE6A208DA2C207 6AE 049: 7F54237F205C0432 1E6 083: FD8DB004AC05D097 12C 
010: 5FFFE1E34420FE1E A7E 04A: 1617C4414A311F96 560 084: C00110AC097C0001 499 
011: O6820FE1E16710FE E19 04B: 6C016114A6D6F673 8ED 085: 3098161851328F31 7FA 
012: 1E36410006351185 16A 04C: F7BF365B280CF201 C98 086: F808161341650110 B4D 
013: 012165002218580C 4B6 04D: 361B698F21441B09 018 087: 88FE3F8043430981 ED9 
014: 0208D82D20185011 814 O4E: 8F21524A4C413109 38E 088: 694783DB134AF015 269 
015: 371FAA8F2AC21554 BBC 04F: 8F45DB0044B11298 71A 089: A51657630118AE5A 5F1 
016: 135719FFE1E46DDF F85 050: ODF1298F534D0042 AA4 O8A: F2AE9BF2BF2BF2BF 9EE 
017: 007E408FB394031A 30A 051: 065B08D51DBO0AC78 E4C 08B: 233FE1E9720061AE D86 
018: 8966A18F8EC20AA6 6C1 052: F83DB0137C21351B 1DF O8C: 1B198F2146134011 0E8 
019: BB6BB679AF6B1072 A7E 053: 678F2146841840AC 564 08D: 361B198F21441340 44F 
O1A: 207430313F966D08 DEC 054: OBAA218A8868A601 8F0 08E: 11371F1C6F214513 7C2 
018: F8EC2070208FEA23 196 055: 8505418A8C25C38B C82 O8F: 5011F1C6F21471E9 B4C 
O1C: 044B8D271308F9DF 53A 056: 670851D618414213 FDF 090: 95F1458D681F0D01 EEO 
01D: 30870935CE8F9DF3 8E9 057: 08F7C1B120AC0482 36F 091: 4A136C213401614E 24D 
O1E: 0870A230187340E6 C50 058: 860013028160E4E6 6D6 092: 80CF208F5341080D 5D7 
O1F: 8161371FAA8F2153 FDC 059: B20871B13018160E A45 093: F80C0201F088F215 95F 
020: 494811135942008D 338 O5A: 4E681014A14F9E29 DD7 094: 501F765F214787D3 CE7 
021: 53E201554135018F 6A1 05B: E3048160E4EACB0E 18B 095: 1321088F1C811137 04D 
022: D96307B9F7BCE4F9 A73 05C: 4694C201B698F214 50€ 096: C2D731FE8F99A805 40A 
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097: 
098: 
099: 
094: 
098: 
09C: 


09E : 
09F: 
0A0: 
OA: 
OA2: 
0A3: 
OA4&: 
0A5: 


CA795F16114A311E 
962606DA016114A3 
124962023F340644 
16365426462F8F89 
0B14F78F3E32034F 
5006850441503664 
016B30001F088F21 
5708F62420850811 
760E01D01D60F707 
FO5D0A8058008028 
6b002767000C0C80 
cF2070211F088F21 
554798E1817FCE63 
OF7A7E16514A7D1D 
511600031547FD04 


7A1 
B14 
E6C 
1EE 
58A 
8D3 
C3F 
F9E 
324 
698 
A09 
D8E 
131 
4DD 
850 


0A6: 
OA7: 
0AB: 
0A9: 
OAA: 
OAB: 
OAC: 
OAD: 
OAE : 
OAF: 
080: 
081: 
0B2: 
0B3: 
0B4: 


716BFC314670D048 
02261906CA031267 
BB043F215C70C0C8 
OCF20AC714A33462 
6238F890B15C3312 
4966911611520301 
90242302902C1ACB 
8126F0F31267F504 
702150275DD1817B 
1E6F4E3146704048 
EOCOC80CF20718D1 
6514A745C4028129 
0681789D18172504 
0077DD6B0E632C14 
A96200011F495F21 


BDE 
F3F 
2E0 
66E 
9EC 
D33 
OAE 
42D 
7AS 
B25 
ED2 
240 
SA7 
93D 
cB2 


0B5: 
0B6: 
087: 
088: 
0B9: 
OBA: 
OBB: 
OBC: 
0BD: 
OBE: 
OBF: 
0C0: 
0c1: 
OC2: 





43E41418F156818B 
E911F088F2157013 
11C01550018DD449 
01FF85F214717414 
38A200cc14113115 
701F088F21550011 
E064600000FB3000 
00000000D1091BFF 
D8204C7FFD00030A 
FFD61035BFF98005 
6BFFD73414355426 
754C435544639464 
367C4F4F40506B35 
54C4543445161FF 
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035 
3B4 
726 
AA5 
EOA 


4cD 
83A 
BDA 
F97 
32B 
697 
A27 
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ENGLISH SUMMARY 
JPC 66 - JULY/AUGUST 1989 


Dears friends, 


As you can see, there are only four programs in this issue. The unique reason is that we have received 
only three articles this month. You must understand that it is not an exceptionnal situation, the 
previous months we had trouble in doing the journal. What can we do if there is none article later ? 
JPC is the sole link between all the members, if it will be stopped, you will be alone. It is to you to 
choose... 


A good new, in the other hand, is that the old David Packard’s garage was classified, in June, 
“historical place and Silicon Valley’s birthplace". 


In the HP-28 section, there are two programs. The first, written by C. Vaillant, shows a diary, wich 
can store name, first name, address and phone number. The second program computes third degree 
polynomials an gives roots in algebric form. The arguments can be reals, complexs or in algebric 
form. 


The HP-41 program will interest all the readers who make macro-photography. It can work with 
many films formats and lenses. You can calculate speed, aperture, distance of the lens, size of the 
subject in the picture... 


The Pert Method is a way to know all the timing of a project, if it is fractioned in more little jobs. 
This program written originaly on a Apple IT, runs now on HP-71. 


The last word : Good Hollydays ! 
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